home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Programming / Emperor4.1 / Emperor / Scripts / stormc.rexx
OS/2 REXX Batch file  |  2001-07-16  |  1KB  |  42 lines

  1. /* $VER: Emperor_StormC.script 4.1  (16.07.2001) */
  2. /* written anno 2000-2001 by Matthias Gietzelt   */
  3. /* Script to:                                    */
  4. /* + open                                        */
  5. /* + compile                                     */
  6. /* + debug                                       */
  7. /* + run a program by CLI                        */
  8. /* + run a program by StormC                     */
  9.  
  10. PARSE ARG mode file
  11.  
  12. /* defined procedures */
  13. open_project        = 0
  14. compile_project     = 1
  15. debug_project       = 2
  16. execute_by_CLI      = 3
  17. execute_by_StormRun = 4
  18.  
  19. if show('P', "STORMSHELL") then do
  20.    if mode = open_project then do
  21.       address stormshell 'OPEN ' || file || ".¶ "
  22.    end
  23.    
  24.    if mode = compile_project then do
  25.       address stormshell 'MAKE'
  26.    end
  27.    
  28.    if mode = debug_project then do
  29.       address stormshell 'DEBUG FILE ' || file || ".c"
  30.    end
  31.  
  32.    if mode = execute_by_CLI then do
  33.       address command "Run >NIL: " || file
  34.    end
  35.    
  36.    if mode = execute_by_StormRun then do
  37.       address stormrun 'RUN ' || file
  38.    end
  39. end
  40.  
  41. exit
  42.